inizio:      
 ON ERROR GOTO ero
 PRINT:PRINT:PRINT
 PRINT:INPUT"    A=Alta risoluzione  R=SYSTEM  B=BBS  enter=inizio programma ",wx$
 IF UCASE$(wx$)="A"THEN GOTO inizoo
 IF UCASE$(wx$)="R" THEN SYSTEM 
 IF UCASE$(wx$)="B" THEN LOAD"minibbs"
 fin%=0:GOSUB fines1:GOTO apri
inizoo:
 fin%=1:GOSUB fines2
apri: 
 WIDTH 79,20
 fi$="COMLOG":OPEN fi$ AS #4 LEN=61
 FIELD #4,10 AS d$,8 AS o$,10 AS c$,7 AS r$,13 AS q$,9 AS n$,4 AS f$
dpsav:                   
 FOR j%=1 TO 500:GET #4,j%:IF MID$(o$,1,1)="*"THEN LET k%=j%:GOTO indice
 NEXT j%
indice:
 IF k% < 4 THEN GOSUB nonce
 LOCATE 1,1:CLS
 PRINT :PRINT "        ATTENDERE   !!!!!!!!!"
 GOSUB altro

ilmenu:
  
  MENU 1,0,1,"Packet"
  MENU 1,1,1,"Packet"
  MENU 1,2,1,"Vhf on"
  MENU 1,3,1,"Vhf off"
  MENU 1,4,1,"Connect"
  MENU 1,5,1,"Disconn"
  MENU 1,6,1,"Mheard"
  MENU 1,7,1,"Cstatus"
  MENU 1,8,1,"cmd:    "
  MENU 1,9,1,"Monit1"
  MENU 1,10,1,"Monit4"
  MENU 1,11,1,"Monit6"
  MENU 1,12,1,"Monit"
  MENU 1,13,1,"Trcon"
  MENU 1,14,1,"Trcoff"
  MENU 1,15,1,"Daytime"
  MENU 1,16,1,"Msg in"
  MENU 1,17,1,"Msg out"
  MENU 1,18,1,"Pass off"
  MENU 1,19,1,"Pass on"
  
  MENU 2,0,1," Rtty"
  MENU 2,1,1,"Baudot"
  MENU 2,2,1,"Ascii "
  MENU 2,3,1,"Rev on "
  MENU 2,4,1,"Rev off"
  MENU 2,5,1,"Wide on"
  MENU 2,6,1,"Wide off"
  MENU 2,7,1,"Xmit    "
  MENU 2,8,1,"Rcve    "
  MENU 2,9,1,"Baud up"
  MENU 2,10,1,"Baud dwn"
  MENU 2,11,1,"Ab 150"
  MENU 2,12,1,"Ab 200"
  MENU 2,13,1,"Ab 300"
  MENU 2,14,1,"Ab 600"
  MENU 2,15,1,"Conv   "
  MENU 2,16,1,"Mode ? "
  MENU 2,17,1,"Hello  "
  MENU 2,18,1,"Rig hr "
  MENU 2,19,1,"Thanks "
  
  
       
  MENU 3,0,1,"Morse"
  MENU 3,1,1,"Morse "
  MENU 3,2,1,"Xmit   "
  MENU 3,3,1,"Receive"
  MENU 3,4,1,"Lock rx"
  MENU 3,5,1,"Unlock"
  MENU 3,6,1,"store ch"
  MENU 3,7,1,"store off"
  MENU 3,8,1,"10 wpm  "
  MENU 3,9,1,"15 wpm  "
  MENU 3,10,1,"20 wpm  "
  MENU 3,11,1,"25 wpm  "
  MENU 3,12,1,"30 wpm  "
  MENU 3,13,1,"Cq      "
  MENU 3,14,1,"xx de k "
  MENU 3,15,1,"Tk rs qt"
  MENU 3,16,1,"risp a cq"
  MENU 3,17,1,"Free "
  MENU 3,18,1,"Free "
  MENU 3,19,1,"End Qso"
  
  MENU 4,0,1,"Facsimile"
  MENU 4,1,1,"Facsimile"
  MENU 4,2,1,"Faxn off"
  MENU 4,3,1,"Faxn on"
  MENU 4,4,1,"Lock    "
  MENU 4,5,1,"Prc off"
  MENU 4,6,1,"Prc on"
  MENU 4,7,1,"Prf off"
  MENU 4,8,1,"Prf on"
  MENU 4,9,1,"Prout off"
  MENU 4,10,1,"Prout on"
  MENU 4,11,1,"Signal"
  MENU 4,12,1,"Ok     "
  MENU 4,13,1,"Binv u"
  MENU 4,14,1,"Binv d"
  MENU 4,15,1,"Run prog"
               
  MENU 5,0,1,"Amtor"
  MENU 5,1,1,"Amtor"
  MENU 5,2,1,"Free"
  MENU 5,3,1,"Free"
  MENU 5,4,1,"Arq"
  MENU 5,5,1,"Alist"
  MENU 5,6,1,"Fec"
  MENU 5,7,1,"Achg"
  MENU 5,8,1,"Conv"
  MENU 5,9,1,"Xmit"
  MENU 5,10,1,"Restart"
  MENU 5,11,1,"Tc clear"
  MENU 5,12,1,"Free"
  MENU 5,13,1,"Free"
  MENU 5,14,1,"Free"
  MENU 5,15,1,"Free"
       
  MENU 6,0,1,"Parameters"
  MENU 6,1,1,"Serial port"
  MENU 6,2,1,"Special ch"
  MENU 6,3,1,"Facsimile"
  MENU 6,4,1,"Identificat"
  MENU 6,5,1,"Link status"
  MENU 6,6,1,"Monitor"
  MENU 6,7,1,"Cw rtty amt"
  MENU 6,8,1,"Timing"
  MENU 6,9,1,"All All"
  MENU 6,10,1,"Help   "
  MENU 6,11,1,"CLS    "
  MENU 6,12,1,"Rcve asc"
  MENU 6,13,1,"Send asc"
  MENU 6,14,1,"Echo on "
  MENU 6,15,1,"Echo off"
  MENU 6,16,1,"Close list"
  MENU 6,17,1,"Run prog"
  MENU 6,18,1,"System"
  MENU 6,19,1,"Save prg"

  MENU 7,0,1,"My log  "
  MENU 7,1,1,"Start time"
  MENU 7,2,1,"Mode-fq   "
  MENU 7,3,1,"Call      "
  MENU 7,4,1,"Name      "
  MENU 7,5,1,"Qth       "
  MENU 7,6,1,"His Rst   "
  MENU 7,7,1,"My Rst    "  
  MENU 7,8,1,"End  time"
  MENU 7,9,1,"Read line"
  MENU 7,10,1,"Corr line"
  MENU 7,11,1,"Save line"
  MENU 7,12,1,"Dele line"
  MENU 7,13,1,"59  59  "
  MENU 7,14,1,"599 599  "
  MENU 7,15,1,"Read log"
  MENU 7,16,1,"Print log"
  MENU 7,17,1,"Read file"
  MENU 7,18,1,"Info     "
  MENU 7,19,1,"List Ram "
  
  MENU ON:CLS:GOSUB tempo
  PRINT :PRINT "      COMUA V1.2 di I0GO, G. Riera Via Tevere 15, 00198 ROMA, tel.858263"
  PRINT :PRINT :CLOSE #1:OPEN"com1:1200,n,8,1,xon" AS 1:GOSUB pa15
klin:
  CLOSE #1:OPEN"com1:1200,n,8,1,xon" AS 1
  WHILE 1
  WHILE LOC(1)<>0  
  u$=INPUT$(1,1):COLOR 1:PRINT u$;:COLOR 1
  IF fl%=1 THEN PRINT #3,u$;
  WEND
  i$=INKEY$:IF fl%=2 THEN i$=INPUT$(1,3)
  IF i$<>""THEN COLOR 3:PRINT  #1,i$;:PRINT i$; 
  IF fl%<>2 THEN GOTO klin1
  IF EOF(3)=-1 THEN GOSUB chiude:fl%=0
klin1:  
  ON MENU GOSUB cerca
  WEND
 GOTO indice
nw1:
  WINDOW 3,"COMUA/Interact",(1,1)-(625,50),8,2
  COLOR 3:WINDOW OUTPUT 3:RETURN

nw2:
  WINDOW OUTPUT 2:COLOR 1:WINDOW CLOSE 3
  RETURN

cerca:
  me1=MENU(0):me2=MENU(1)
  ON me1 GOSUB pack,rty,mor,fac,amt,para,mylog
  RETURN
 
pack:
 ON me2 GOSUB pa1,pa2,pa3,pa4,pa5,pa6,pa7,pa8,pa9,pa10,pa11,pa12,pa13,pa14,pa15,pa16,pa17,pa18,pa19
 RETURN
 
rty:
 ON me2 GOSUB rt1,rt2,rt3,rt4,rt5,rt6,rt7,rt8,rt9,rt10,rt11,rt12,rt13,rt14,rt15,rt16,rt17,rt18,rt19
 RETURN 
 
mor:
 ON me2 GOSUB mo1,mo2,mo3,mo4,mo5,mo6,mo7,mo8,mo9,mo10,mo11,mo12,mo13,mo14,mo15,mo16,mo17,mo18,mo19
 RETURN
 
fac:
 ON me2 GOSUB fa1,fa2,fa3,fa4,fa5,fa6,fa7,fa8,fa9,fa10,fa11,fa12,fa13,fa14,fa15
 RETURN 
 
amt: 
 ON me2 GOSUB am1,am2,am3,am4,am5,am6,am7,am8,am9,am10,am11,am12,am13,am14,am15
 RETURN
 
para:
 ON me2 GOSUB pr1,pr2,pr3,pr4,pr5,pr6,pr7,pr8,pr9,pr10,pr11,pr12,pr13,pr14,pr15,pr16,pr17,pr18,pr19
 RETURN

mylog:
 COLOR 3,0
 ON me2 GOSUB lo1,lo2,lo3,lo4,lo5,lo6,lo7,lo8,lo9,lo10,lo11,lo12,lo13,lo14,lo15,lo16,lo17,lo18,lo19
 COLOR 1,0:RETURN

pa1:
  in$="PA":GOSUB trt:in$="hb 1200":GOTO trt
pa2:
  in$="V ON":GOSUB trs:in$="hb 1200":GOTO trs
pa3:
  in$="V OFF":GOSUB trs:in$="hb 300":GOTO trs
pa4:
  in$="C "+cal$:PRINT "Connetto: ";cal$:GOTO trt
pa5:
  in$="D":GOTO trt
pa6:
  in$="MH":GOTO trs
pa7:
  in$="CS":GOTO trs
pa8:
  in$="":GOTO trt
pa9:
  in$="M 1":GOTO trs
pa10:
  in$="M 4":GOTO trs
pa11:
  in$="M 6":GOTO trs
pa12:
  in$="M":GOTO trs
pa13:
  in$="TRAC ON":GOTO trs
pa14:
  in$="TRAC OFF":GOTO trs
pa15:
  GOSUB datai:in$="DA "+dz$:GOTO trs
pa16:
   COLOR 3,0:PRINT :INPUT"",mn$:COLOR 1,0:RETURN
pa17:
   in$=mn$:GOSUB c1:GOTO trs
pa18:
    in$="PASSA OFF":GOTO trs
pa19:
    in$="PASSA ON":GOTO trs
    
    
rt1:
  in$="BA":GOSUB trt:in$="RXR OFF":GOSUB trs:in$="RB 50":GOTO trs
rt2:
  in$="AS":GOTO trs
rt3:
  in$="RXR ON":GOTO trs
rt4:
  in$="RXR OFF":GOTO trs
rt5:
  in$="WI ON":GOTO trs
rt6:
  in$="WI OFF":GOTO trs
rt7:
  in$="X":GOTO trs
rt8:
  in$="R":GOTO trs
rt9:
  in$="RB U":GOTO trs
rt10:
  in$="RB D":GOTO trs
rt11:
  in$="AB 150":GOTO trs
rt12:
  in$="AB 200":GOTO trs
rt13:
  in$="AB 300":GOTO trs
rt14:
  in$="AB 600":GOTO trs
rt15:
  in$="conv":GOTO trs
rt16:
  in$="O":GOTO trs
rt17:
  in$="Hello  nice to contact you - name here Joe and qth Rome >>":GOSUB c1:GOTO trs
rt18:
  in$="Rig hr ts430s amiga 500  pk232 ant dipole>>":GOSUB c1:GOTO trs  
rt19:
  in$="Thanks for nice contact hope to meet you agn 73 >>":GOSUB c1:GOTO trs

mo1:
  in$="MO":GOTO trt
mo2:
  in$="X":GOTO trt
mo3:
  in$="R":GOTO trt
mo4:
  in$="L":GOTO trt
mo5:
  in$="MO":GOTO trt
mo6:
  in$="K":GOTO trt
mo7:
  in$="MO":GOTO trt
mo8:
  in$="MSP 10":GOTO trt
mo9:
  in$="MSP 15":GOTO trt
mo10:
  in$="MSP 20":GOTO trt
mo11:
  in$="MSP 25":GOTO trt
mo12:
  in$="MSP 30":GOTO trt
mo13:
   GOSUB mo2:in$="cq cq cq de i0go i0go i0go  "
   in$=in$+in$+in$+" + pse k "+CHR$(4):GOSUB c1:GOTO trs
mo14:   
    GOSUB mo2:in$=cal$+" "+cal$+" de i0go i0go i0go  pse  k"+CHR$(4)
    GOSUB c1:GOTO trs
mo15:
    GOSUB mo2:in$=cal$+" de i0go - ok dr "
    IF nam$="" THEN LET nam$="om"
    in$=in$+nam$+" tks for rprt fm "
    IF qth$="" THEN LET qth$="your qth "
    in$=in$+qth$+" - ur rst "+hrs$+" "+hrs$
    in$=in$+" - here name is joe joe es qth roma roma - rig ts430s amiga 500 pk232 - ant dipole - ok ? "
    in$=in$+cal$+" de i0go + k"+CHR$(4):GOSUB c1:GOTO trs    
mo16:
    GOSUB mo2:in$=cal$+" de i0go - tks fer call "
    in$=in$+"ur rst "+hrs$+" "+hrs$
    in$=in$+" - here name is joe joe es qth roma roma - rig ts430s amiga 500 pk232 - ant dipole - ok ? "
    in$=in$+cal$+" de i0go + k"+CHR$(4):GOSUB c1:GOTO trs    
mo17:
    RETURN
mo18:
    RETURN
mo19:
    GOSUB mo2:in$=cal$+" de i0go - ok dr "
    IF nam$="" THEN nam$="om"
    in$=in$+nam$+" tks fer nice qso - nw hope TO meet you agn - 73 gb - "+cal$+" de i0go +*"
    in$=in$+CHR$(4):GOSUB c1:GOTO trs
fa1:
  in$="FA":GOTO trt
fa2:
  in$="FAXN OFF":GOTO trs
fa3:
  in$="FAXN ON":GOTO trs
fa4:
  in$="L":GOTO trs
fa5:
  in$="PRC OFF":GOTO trs
fa6:
  in$="PRC ON":GOTO trs
fa7:
  in$="PRF OFF":GOTO trs
fa8:
  in$="PRF ON":GOTO trs
fa9:
  in$="PRO OFF":GOTO trs
fa10:
  in$="PRO ON":GOTO trs
fa11:
  in$="SIGNAL":GOTO trs
fa12:
  in$="OK":GOTO trs
fa13:
  in$="BI U":GOTO trs
fa14:
  in$="BI D":GOTO trs
fa15:
  RUN:REM:in$="":GOTO trs

am1:
  in$="AM":GOTO trt
am2:
  in$="":GOTO trs
am3:
  in$="":GOTO trs
am4:
  in$="AR":GOTO trs
am5:
  in$="AL":GOTO trs
am6:
  in$="FE":GOTO trs
am7:
  in$="AC":GOTO trs
am8:
  in$="CONV":GOTO trs
am9:
  in$="X":GOTO trs
am10:
  in$="RESTART":GOTO trs
am11:
  in$="TC":GOTO trs
am12:
  in$="":GOTO trs
am13:
  in$="":GOTO trs
am14:
  in$="":GOTO trs
am15:
  in$="":GOTO trs

pr1:
  in$="DISP A":GOTO trs
pr2:
  in$="DISP C":GOTO trs
pr3:
  in$="DISP F":GOTO trs
pr4:
  in$="DISP I":GOTO trs
pr5:
  in$="DISP L":GOTO trs
pr6:
  in$="DISP M":GOTO trs
pr7:
  in$="DISP R":GOTO trs
pr8:
  in$="DISP T":GOTO trs
pr9:
  in$="DISP Z":GOTO trs
pr10:
  in$="H":GOTO trs
pr11:
  CLS:RETURN
pr12:
   IF fl%=1 THEN GOSUB chiude:fl%=0:RETURN
   GOSUB apre:IF flx$="" THEN RETURN
   CLOSE #3:OPEN flx$ FOR OUTPUT AS #3:PRINT " Ricevo il file ",flx$:fl%=1:RETURN
pr13:
    IF fl%=2 THEN GOSUB chiude:fl%=0:RETURN
    GOSUB apre:IF flx$="" THEN RETURN
    CLOSE #3:OPEN flx$ FOR INPUT AS #3:PRINT " Trasmetto file ", flx$:fl%=2:RETURN
pr14:
   in$="echo on":GOTO trs
pr15:
    in$="echo off":GOTO trs
pr16:
   MENU OFF:CLOSE:CLEAR:LIST:END
pr17:
   RUN
pr18:
   CLOSE:SYSTEM
pr19:
   SAVE "COMUA":SAVE"COMUA-A",A:RUN
apre:
   INPUT " Nome del file ? (ret=ret) 0-9 apre ram ",flx$:IF flx$="" THEN RETURN
   IF ASC(flx$)<58 AND ASC(flx$)>47 THEN flx$="RAM:FILE"+flx$  
   RETURN
chiude:
    CLOSE #3:PRINT:PRINT  " Ho chiuso il file ",flx$:RETURN
  

lo1:
   GOSUB datai:RSET d$=dz$
   star$=MID$(DATE$,4,2)+"/"+MID$(DATE$,1,2)+"/"+MID$(DATE$,9,2)  
   star$=star$+" "+MID$(TIME$,1,2)+MID$(TIME$,4,2):RETURN
   in$="":GOTO trs
lo2:
   LINE INPUT;" Mode-fq p=144 pk ";mofq$:IF mofq$="p"THEN mofq$="144 Packet"
   IF mofq$<>"" THEN LSET o$=UCASE$(mofq$)
   RETURN
lo3:
  LINE INPUT;" Call g=go ";cal$:IF cal$="g" THEN cal$="I0go"
  IF cal$<>"" THEN RSET c$=UCASE$(cal$)
  RETURN
lo4:
  LINE INPUT;" Name ";nam$
  IF nam$<>"" THEN RSET n$=UCASE$(nam$)
  RETURN  
lo5:  
  LINE INPUT;" Qth r=Roma ";qth$:IF qth$="r" THEN qth$="Roma"
  IF qth$<>"" THEN RSET q$=UCASE$(qth$)
  RETURN
lo6:
  LINE INPUT;" His rst ";hrs$
   RETURN
lo7:
  LINE INPUT;" My rst ";mrs$
lo71:  
   IF mrs$<>"" THEN RSET r$=mrs$+" "+hrs$:RETURN
lo8:
   sto$=MID$(TIME$,1,2)+MID$(TIME$,4,2)         
   RSET f$=sto$:RETURN    
lo9:
  PRINT :GOSUB kas:RETURN
lo10:
   GOSUB elin:RETURN
lo11:
   GOSUB nw1:GOSUB kas:GOSUB prosi:RETURN
lo12:
   GOSUB nlin:RETURN
lo13:
   mrs$=" 59":hrs$=" 59":GOSUB lo71:RETURN
lo14:
   mrs$="599":hrs$="599":GOSUB lo71:RETURN
lo15:
   oub=0:GOSUB alin:RETURN
lo16:
   oub=1:GOSUB alin:RETURN
lo17:
   GOSUB apre:IF flx$="" THEN RETURN
   CLOSE #3:OPEN flx$ FOR INPUT AS #3
loop1:  
   LINE INPUT #3,in$:PRINT in$:IF EOF(3)=-1 THEN GOSUB chiude:RETURN
   GOTO loop1
lo18:
    GOSUB tempo:RETURN
lo19:
    FILES"RAM:":RETURN

trt:
  in$=CHR$(3)+in$
trs:
   PRINT #1,in$:RETURN

datai:
   dt$=MID$(DATE$,9,2)+MID$(DATE$,1,2)+MID$(DATE$,4,2)
   dz$=dt$+MID$(TIME$,1,2)+MID$(TIME$,4,2)+MID$(TIME$,7,2)
   RETURN

alin:
 CLS:GOSUB chef:CLS:pag=1:pgg=1:GOSUB alio1
 FOR j%=1 TO (k%-1):GET #4,j%
 pag=(j%/70):IF pag>pgg THEN pgg=pgg+1: GOSUB alio2:k$="":GOSUB prs:k$="":GOSUB prs:k$="":GOSUB prs:GOSUB alio1
 GOSUB colo:GOSUB kas
alio: 
 IF MOUSE (0)=1 THEN RETURN
 NEXT j%:GOSUB alio2:RETURN
alio1:
 GOSUB kss:GOSUB prs:k$="":GOSUB prs:GOSUB kssa:GOSUB prs 
 RETURN
alio2: 
 k$="":GOSUB prs:GOSUB kssb:GOSUB prs
 RETURN  
blin:
 CLS:FILES"df0:":INPUT"File da cancellare   ";x$:IF x$=""THEN GOTO indice 
 LET x$="df0:"+x$:PRINT "cancello ";x$:KILL x$
 GOTO indice
clin:
 CLS
 GOTO indice
dlin:
 CLS:FILES"df0:":INPUT"File da caricare ?  p=prova ",x$:IF x$=""THEN GOTO indice
 IF x$="p"THEN LET x$="prova"
 CLOSE:LET x$="df0:"+x$:LOAD x$,r
elin:
 GOSUB nw1:INPUT"Record da correggere 0=ind ";j%
 IF j%=0 THEN RETURN 
 GET #4,j%:GOSUB kas
 LINE INPUT "Datetime aammgghhmm ",dz$:IF dz$<>"" THEN RSET d$=dz$
 GOSUB lo2:GOSUB lo3:GOSUB lo5
 GOSUB lo4:GOSUB lo6:GOSUB lo7
 LINE INPUT " End time ",sto$:IF sto$<>"" THEN RSET f$=sto$
 GOSUB kas:PUT #4,j%:GOSUB nw2:RETURN
 
 
 du$=d$:GOSUB corre
 IF d$<>du$ THEN PUT #4,(k%+1):recc%=j%:FOR j%=recc% TO (k%+1):GET #4,(j%+1):PUT #4,j%:NEXT j%:k%=k%-1:GET #4,(k%+1):GOTO prosi                         
 PUT #4,j%:GOSUB kas
 GOTO elin
flin:
 CLS:FILES"df0:"
 GOTO indx
glin:
 GOTO indice
hlin:
 GOTO indice
ilin:
 GOSUB nw1
ilina: 
 PRINT "record no.";k% 
 GOSUB corre
prosi:
 PUT #4,k%:k%=(k%+1):du$=d$:GET #4,(k%-2):IF du$>=d$ THEN reco%=k%-1:GOTO prose
 FOR j%=1 TO (k%-2):GET #4,j%:IF  d$>du$ THEN reco%=j%:GOTO prosa
 NEXT j%
prosa: 
 FOR j%=k% TO reco% STEP -1
 GET #4,j%:PUT #4,(j%+1)
 NEXT j%:GET #4,(k%):PUT #4,reco% 
prose: 
 GET #4,reco%:j%=reco%:GOSUB kas
 REM:INPUT"return per continuare ",x$
 REM:IF x$=""THEN GOTO ilina ELSE GOSUB ultimo
 GOSUB ultimo::GOSUB nw2:RETURN
jlin:
 RETURN
llin:
 LIST:END
 GOTO indice
mlin:
 RETURN
sera:
 RETURN
nlin:
 GOSUB nw1:INPUT"Record da cancellare  ";recc%
 j%=recc%:GET #4,j%:GOSUB kas
 FOR j%=recc% TO k%+1:GET #4,(j%+1):PUT #4,j%
 NEXT j%:k%=k%-1
 GOSUB nw2:RETURN
olin:
 CLS:INPUT"Record da duplicare ";j%:GET #4,j%:GOSUB kas:GOSUB corre:GOTO prosi
 GOTO indice
plin:
 CLS:PRINT "scambio linee "
 INPUT"1 linea ";aa%:INPUT"2 linea ";ab%
 GET #4,aa%:PUT #4,(k%+2):GET #4,ab%:PUT #4,aa%
 GET #4,(k%+2):PUT #4,ab%
 GOTO indice
qlin:
 RUN
 GOTO indice
rlin:
 SYSTEM
 GOTO indice
slin:
 CLOSE:SAVE"df1:COMUA":RUN
tlin:
 CLS:INPUT"1=seriale on ",oua
 INPUT"1=stampante on ",oub:IF oub=1 THEN GOSUB chef
 INPUT"1=rosso on ",ouc
tali:
 INPUT"attrib sta ",x$:IF x$="" THEN GOTO indice
 CLOSE #2:OPEN"PRT:" FOR OUTPUT AS #2
 IF LEN(x$)>4 THEN PRINT #2,x$:CLOSE #2:GOTO tali
 PRINT #2,CHR$(27)+"["+x$:CLOSE #2:GOTO tali 
 GOTO indice 
tempo:
 gio$="          "+MID$(DATE$,4,2)+"/"+MID$(DATE$,1,2)+"/"+MID$(DATE$,7,10):PRINT gio$;"  ORE ";TIME$;" BAS";FRE(0);" MEM";FRE(-1);" Qso. no.";k%-1 
 RETURN
kss:
 k$="LOG di I0GO, Giuseppe Riera, Via Tevere 15 Roma, Lic.1323 pat.1710 PAGINA n."+STR$(pgg):RETURN
kssa:
 k$="qso n. data e ora  Mhz modo   c a l l  mio suo      q t h     n o m e  fine":RETURN
kssb:
 k$="Potenze impiegate: 25W in VHF, 150W in HF. ore in CET    Firma:________________":RETURN

kas:  
 mesi=VAL(MID$(d$,3,2)):IF mesi<>meso THEN GOSUB amese:meso=mesi
 jj$=MID$((STR$(j%)),2):k$=SPACE$(4-LEN(jj$))+jj$+" "
 k$=k$+MID$(d$,5,2)+"/"+MID$(d$,3,2)+"/"+MID$(d$,1,2)+" "+MID$(d$,7,4)
 k$=k$+" "+o$+" "+c$+" "+r$+" "+q$+" "+n$+" "+f$
 
 GOSUB prs
 RETURN
amese:
 RETURN
prs:
 PRINT k$:IF oua=1 THEN CLOSE #1:OPEN"com1:1200,n,8,1,xon" AS #1:PRINT #1,k$ 
 IF oub=1 AND oucc=1 THEN k$=CHR$(27)+"[35m"+k$+CHR$(27)+"[30m"
 IF oub=1 THEN CLOSE #2:OPEN "PRT:" FOR OUTPUT AS #2:k$=CHR$(27)+"[3w"+CHR$(27)+"[2w"+CHR$(27)+"[0z"+k$:PRINT #2,k$:CLOSE #2
 RETURN 
indx:
 INPUT"  premere RETURN per tornare all' indice  ",x$:GOTO indice
wido:
 w$=STR$(x#):w$=MID$(w$,2):le%=LEN(w$):FOR e%=le% TO 1 STEP(-1)
 IF e%=le%-3 OR e%=le%-6 OR e%=le%-9 THEN LET w$=MID$(w$,1,e%)+"."+MID$(w$,(e%+1),(le%-e%+1))
 NEXT e%:IF x#<0 THEN LET w$="-"+w$
 RETURN          
mese:
 RETURN
altro:
  dt$=MID$(DATE$,9,2)+MID$(DATE$,1,2)+MID$(DATE$,4,2)
  RETURN
corre:  
 RETURN
colo:
 GOSUB altro
 RETURN
c1:
  COLOR 3:PRINT in$:COLOR 1:RETURN

chef:
 IF oub=1 THEN INPUT"    ACCENDERE  LA STAMPANTE !!!!!!!  n=no ",wx$
 IF UCASE$(wx$)="N" THEN oub=0
 RETURN
ultimo:
 oo$="*":LSET o$=oo$:dd$="zzzzzz":LSET d$=dd$:PUT #4,k%:PUT #4,(k%+1)
 RETURN
nonce:
 CLS:PRINT "Non vi sono record sufficienti nel file ";fi$
 PRINT "per consentire l'ordinamento automatico in ordine di"
 PRINT "data occorrono almeno 4 record (Da cancellare dopo)"
 PRINT "che il computer inserisce automaticamente digitando una s"
 INPUT"il solo return torna all'indice ",x$:IF UCASE$(x$)<>"S" THEN RETURN
 FOR k%=1 TO 4 :LSET d$="800101":LSET c$="PROVA GR":RSET o$="0":PUT #4,k%
 NEXT k%:GOSUB ultimo:j%=k%:RETURN

ero:
 IF fin%=1 THEN GOSUB fines2:GOTO ero1
 GOSUB fines1
ero1: 
 PRINT "Errore n.";ERR:IF ERR=53 THEN PRINT "File inesistente !"
 MENU ON:RESUME klin
fines1:
 SCREEN 1,640,250,2,2
 WINDOW 2, "COMUA V1.2 per pk 232" ,,0,1
 RETURN

fines2:
 SCREEN 1,640,500,2,4
 WINDOW 2, "COMUA V1.2 per pk 232" ,,0,1
 RETURN




 END